home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pseudo-s / pseudo_2.lha / 2-7-patches.scm next >
Encoding:
Text File  |  1991-06-21  |  363 b   |  12 lines
  1.  
  2. ; These patches are needed in order to boot version 2.8 from version 2.7.
  3. ; Do (schi:scheme), load this file, then load bootit.scm and do (bootit).
  4.  
  5. (lisp:rename-package "SCHI" "SCHI")
  6.  
  7. (lisp:defun number->string (num lisp:&optional (radix 10))
  8.   (let ((lisp:*print-base* (if (equal? radix '(scheme::heur))
  9.               10
  10.               radix)))
  11.     (lisp:write-to-string num)))
  12.